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Merkmale des TA1600-COBOL 


Mit TA1600 COBOL wird in diesem Handbuch die auf der TAl600-Systemfamilie 
implementierte COBOL Basissprachmenge bezeichnet. Die auf den Systemen Tal610, 
TA1620 und TA1630 implementierten TA1610 COBOL, TA1620 COBOL und TA1630 COBOL 


umfassen diese Basissprachmenge. 


TA1620/TA1 630 
TA1620 bzw. TA1630 COBOL enthält zusätzliche Erweiterungen, die nicht in 


TA1610 COBOL verfügbar sind; diese sind durch Umrahmungen (wie hier) 
besonders gekennzeichnet. 


TA1630 
Darüberhinaus besitzt TA1630 COBOL zusätzliche Erweiterungen, | 


auf die an den entsprechenden Stellen besonders hingewiesen | 


wird und die durch Umrahmungen (wie hier gezeigt) besonders 
gekennzeichnet sind. 


Vollständiges Sprachgerüst des TA 1600 - COBOL 
Allgemeines Format der IDENTIFICATION DIVISION 


IDENTIFICATION DIVISION. 


PROGRAM-ID. Programmname 


LAUTHOR. [Kommentar ] ...] 


[ INSTALLATION. [Kommentar] 
[ DATE-WR ITTEN. [Kommentar ] 


[SECURITY. [Kommentar ] 
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Allgemeines Format der ENVIRONMENT DIVISION 


ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 


SOURCE-COMPUTER. Computername [WITH DEBUGGING MODE ], 
OBJECT-COMPUTER,. Computername 
[, WITH NO SCREEN CONTROL ] 
WORDS ) 


[, MEMORY SIZE Ganzzahl CHARACTERS 
MODULES 


] 


[, PROGRAM COLLATING SEQUENCE IS Alphabetname] . 


[speczaL-nanes. [[, Systemname 


Merkname ‚ON STATUS IS Bedingungsname-] 
‚„OEE STATUS IS Bedingungenana-2]] 
Merkname ‚OFF STATUS IS Bedingungsname-2 
N STATUS 151 Bedingungsname-1] ] 
STATUS IS Bed.name-] ® OFF STATUS Is Bedingungsname- 2] 
FF STATUS IS Bed.name-2 [,ON STATUS IS Bedingungsnane-1 ] 


STANDARD- 1 | 


‚Alphabetname IS | 


NATIVE 


[, CURRENCY SIGN IS Literal] 
[, DECIMAL-POINT IS COMMA ] J] 


[2neur-oureur SECTION. 
FILE-CONTROL. 


\Dateisteverungserklärung| 


I-0O-CONTROL , 


[;SAME AREA FOR Dateiname-1, |Dateiname-2! onelseei 
F; MULTIPLE FILE TAPE CONTAINS 
Dateiname-3 [ POSITION Ganzzahl-!] 


[ ,‚Dateiname-4 [ POSITION Ganzzahl-2] | en 


E 
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Allgemeines Format der Dateisteuererklärung 


1 


Format 


SELECT Dateiname 


‚ INPUT \ 
ASSIGN TO = 00 Literal-] 
PRINT 


RANDOM 


‚ Datenname-O 


be ıı 
L; RESERVE Ganzzahl-] AREAS 


[FORGANIZATION IS SEQUENTIAL ] 
[ACCESS MODE IS SEQUENTIAL ] 
[| FILE STATUS IS Datenname-1]. 


Format 2 
SELECT Dateiname 


nichtnumerisches an 


ASSIGN TO RANDOM eraen 


ken | 
[; RESERVE Ganzzahl-1 LAREASJ] 


ORGANIZATION IS RELATIVE 
SEQUENTIAL[,RELATIVE KEY IS Datennane-I] 


Hneei | 


;ACCESS MODE IS 
| DYNANIC ‚RELATIVE KEY IS Datenname-] \ 


[;FILE STATUS IS Datenname-2] 


Format 3 


SELECT Dateiname 


ASSICN TO RANDOM „nichtnumerisches reralel) 
ann a (‚Datenname-O 


. AREA 
[;RESERVE Genzzahl-1 AREAS ] 


;ORGANIZATION IS INDEXED 
\ SEQUENTIAL ) 
;ACCESS MODE IS RANDOM 
DYNAMIC \ 
;RECORD KEY IS Datenname-] 
[;ALTERNATE RECORD KEY IS Datenname-2 [WITH DUPLICATES] ] ... 
[;FILE STATUS IS Datenname-3] . 
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Allgemeines Format der Dateisteuererklärung 


TA 1620/TA 1630 
Format 4 


SELECT Dateiname 


‚nichtnumerisches Literal-1/ 
(‚Datenname-O 


AREA 
[;Beserve Ganzzahl-] Fl 


ASSIGN TO SCREEN 


[;ORGANIZATION IS SEQUENTIAL ] 
[;ACCESS MODE IS SEQUENTIAL ] 
[;FILE STATUS IS Datenname-1] 


| ae 


ie AREA IS Genzzuhl-2 TiRoo 


THROUGH 


[ SCROLL 
‚SCREEN MODE IS Pace | 
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Allgemeines Format der DATA DIVISION 


DATA DIVISION. 
[FILE SECTION. 


[FD Dateiname 


\ RECORDS '} 
[ ‚gLock CONTAINS [Ganzzahl-1 TO] Ganzzahl-2 \CHARACTERS| 


[;RECORD CONTAINS [Ganzzahl-3 TO ] Ganzzahl-4 CHARACTERS ] 


RECORD IS ) | STANDARD ) 
RECORDS ARE | )OMITTED \ 


;LABEL 


LPRSmEns= 
[;yarue E.0f, IDEREABEL 18 | Literal-] \ 
[;DATA Een, SR Datenname-2 LDstonaans=d] | 


er \ Datenname-5/ 
[;LINAGE IS ÜGenzzahl=5 \ LINES [,WITH FOOTING AT )Gamzahles | 


Ganzzahl-7 Datenname-8 


[;umes ar Top es] [‚unes AT BOTTOM a 
[ Satzbeschreibung ] ...] ...] 


Die LINAGE-Klausel 


TOP Zeilen Ki 


Seitenkörper 


FOOTING 
Bereich 


BOTTOM | 


Ganzzahl-7 


logische Ganzzahl-5 


Seite 


+—— Ganzzahl-6 


Zeilen 


ao 


[YORKING-STORAGE SECTION. 


Ren 
Satzbeschreibung 


LINKAGE SECTION. 


Satzbeschreibung 
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TA 1620/TA 1630 


Bildschirm-Dateierklärung 


FORMAT 


FD Dateiname 


RECORDS 
| ;aLock CONTAINS [ Ganzzahl-1 To ] Ganzzahl-2 |ünaerens | 


|;recor CONTAINS [ Ganzzahl-3 TO ] Ganzzahl-4 CHARACTERS | 


RECORD _IS STANDARD 
BEL |BcoeDs ee om | 


[:vaLue or user-LaseL 15 Ve ] 


RECORD IS 
[:dara RECORDS ARE 


Literal-] 
Datenname-3 [,Datenname-4] ...] 


;SCREEN IS Bildschirmsatzname- ] [‚Bildschirmsatzname-2 Ik 


CORARO/B2, U F f + VERRRENERERDER 
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Allgemeines Format der Datenbeschreibung 
FORMAT 1] 


\Datenname-] 


Stufennummer |FILLER 


[: REDEFINES Datenname-2] 


\PICTURE 
Aerettee| IS Zeichenkette | 
COMPUTATIONAL 
COMP 


COMPUTATIONAL- 1 
‚LUSAGE 15] |COMP-1 
Dunn COMPUTATIONAL-3 
COMP-3 
DISPLAY 
INDEX 


[.[sıcn 1S] TRAILING [SEPARATE CHARACTER] ] 
| TA 1630 
aa TO Ganzzahl-2 TIMES 
;OCCURS ! DEPENDING ON Datenname-3 


| Ganzzahl-2 TIMES 


Le 


[ INDEXED BY Indexname-1 [, Indexname-2] ...] 


. \SYNCHRONIZED | [ LEFT 
’ ISYNC RIGHT 


[agtr| 


de | RIGHT | 


[; BLANK WHEN ZERO ] 


[; VALUE IS Literal]. 


FORMAT 2 
66 Datenname-] ;RENAMES Datenname-2 


Ki 


, THRU Datenname-3 ] 


FORMAT 3 


En | Literal-1 


83 Bedingungsname ; / VALUES ARE 


Komm Literal-2| 


\ THROUGH } 


) THRU Literol-4| BReR 


‚Literal-3 [ 
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Allgemeines Format der Datenbeschreibung 


FORMAT 4 


Bildschirmdatenbeschreibung 


Datenname-] | 
level-number FILLER 
ATTRIBUTE \ 


[; \ PICTURE } 


PIC ES Zeichenkette| 


;LUSAGE 15] DISPLAY 
;[SIGN IS] TRAILING [ SEPARATE CHARACTER ]]| 


[ 
| 
| 


Kr RIcht ] 


Aust N 
; BLANK WHEN ZERO ] 
; VALUE IS Literal ] 
; LINE IS [ PLUS ] Ganzzahl-1] 
; POSITION IS [ PLUS] Ganzzahl-2] 
; FIELD ATTRIBUTE IS 
nicht TA1610 


[NOT OPTIONAL] AUTO] LEXACTIEWITH CHECK] INO ERASE] ) 
I PROTECTED |] 


' ) LINVERSE ] [ BLINKING } [ BRIGHT ] [LNDERLINED ]) 
| NOT VISIBLE \ 


[, Merkname L[,Merkname] ... | . 
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Allgemeines Format der PROCEDURE DIVISION 

PROCEDURE DIVISION [USING Datenname-1 [,Datenname-2] ...]. 
FORMAT 1 

[DECLARATIVES. 


}Kapitelname SECTION [Segmentnummer] . Declarative-Satz 

[Paragraphnane. [Satz] BI ER | ... | 

END DECLARATIVES.] 

| Kapitelname SECTION [Segmentnumner]. 
) 

[Paragraphnane. [Satz ] 08 ] one 


[END PROGRAMM.] 


FORMAT 2 
N Paragraphname. [Satz] ... i a 


[END PROGRAM.] 


CURAREI/12B2/4 IA si: 
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Allgemeines Format _der Verben 


FORMAT 1 

ACCEPT Bezeichner-1 [FROM Merkname-1] 
[ DISPLAYING [ UPON Merkname-2] ] 
[une 1S Be 


Literal-] 


\Bezeichner-3 
[ posırzon 1a |Literal-2 ] 


| SCREEN 
[AFTER gRASE [Ime ]] 


+ 


[no key IS Merkname-3 [Merkname-4] ... 
[ POINTER IS Bezeichner-4] | 


FORMAT 2 


DATE 
ACCEPT Bezeichner-1 FROM DAY 
TIME 


ANMERKUNG 


Die im folgenden beschriebene ACCEPT-Anweisung ist aus Kompati- 
bilitätsgründen in TA 1600 COBOL mit aufgenommen worden und sollte 
für Programmentwicklungen nicht mehr verwendet werden. 


FORMAT 


® : m) . ii ’ = 
ACCEPT Bezeichner-t [air leeren 1 es 1] 


Bezeichner-5 N 
en NL PRoMetlLitero1-5]] L, EcHo]L,cowveRT JL, TAB JL,NO BEEP ] [,ERASE ] 


& i Bezeichner-7 IL Bezeichner-8 If Bezeichner-9 
Bezeichner-6 (‚ur Terese } En Pe } BSErIOH ee ers } 


Bezeichner-10 r 
er NL PROMPT [Literal-10] ] [ECHO ][, CONVERT ][,TA8 ][,NO_BEEP IL ‚ERASE ]] 


FORMAT 1 


| po en a ) ,I6 Bozeichner-n [ROUNDED ] 


Literal-1 Literal-2 
[; ON SIZE ERROR unbedingte Anweisung] 


FORMAT 2 


en en Pe ] 
—— |Literal-] ' ALiteral-2 ‚Literal-3 


GIVING Bezeichner-m [ ROUNDED ][,; ON SIZE ERROR unbedingte Anweisung ] 


32/4 7A TRIUMPH-ADLER 
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UOD/Rer/L 
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Allgemeines Format der Verben 
TA 1630 
FORMAT 3 


\ CORRESPONDING ) 


ADD  ,CORR \ 


Bezeichner-! TO Bezeichner-2 [ROUNDED] 


[;oN SIZE ERROR unbedingte Anweisung} 


CALL Literal-1 [USING Datenname-1 [ ‚Datenname-2 ] ... ] 


FORMAT 1 7 


[\REEL] REEL} RI 
CLOSE ni [WITH NO REWIND] || nu+einame-2 Yuuır [WITH NO REWIND] 


| 
NO REWIND ) urn |NQ REWIND I 
Mu STOCK | LOCK | 


,’ 


FORMAT 2 


CLOSE Dateiname-1 [WITH LOCK] [ ‚Dateiname-2 [WITH LOCK] ] ... 
TA 1630 Eye 
COMPUTE Bezeichner-] [ROUNDED ] = arithm. Ausdruck 


[;ON SIZE ERROR unbedingte Anweisung] 
DELETE Dateiname RECORD L[;INVALID KEY unbedingte Anweisung ] 


FORMAT 1 


DISPLAY ‚Bezeiehner-]} [UPON Merkname-1] 


Bezeichner-2 ] 
SINE 2 Apr 


| 


[ Boszrzon u (Literal-3 ) 


[ AFTER ERASE [ LINE I... 


SCREEN | \ 
ANMERKUNG 


Die im folgenden beschriebene DISPLAY-Anweisung ist aus 
Kompatibilitätsgründen in TA 1600 COBOL mit aufgenommen worden 
und sollte für Programmentwicklungen nicht mehr verwendet 
werden. 

FORMAT 2 


De [Bezeichner-2\ ee... 
DESELST en ‚nr Bliesai? J ‚LINE Literal-3 } 


Bezeichner-4\ re a 
[‚poszrzon Terre j [‚sıze Literal.s5 3] [BEP] [.EBMSE] 


[Bezeichner-ö) ea [ ee 
ee ga deren ‚INE (irren 1 


| [ | ] 
[„posıtzon rer we \| [,Beep][,ERase] 
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Allgemeines Format der Verben 


FORMAT 1 


Bezeichner-] 


BENIBE De 


} INTO Bezeichner-2 [ROUNDED ] 
[; ON SIZE ERROR unbedingte Anweisung ] 


FORMAT 2 


Bezeichner-] u. 


DIVIDE 


Literal-] } INTO nn 


GIVING Bezeichner-3 [ROUNDED ][; -ON SIZE ERROR unbedingte Anweisung] 
FORMAT 3 


DIVIDE ee 


Literal-] BY 


oh 
Literal-2 


GIVING Bezeichner-3 [ROUNDED][; ON SIZE ERROR unbedingte Anweisung] 


EXIT, 
EXIT PROGRAM. 


TA 1620/TA 1630 


GENERATE Bildschirm-Satzname 
ee Satzname 


GO TO[Prozedurname-1] 


GO TO Prozedurname-] [ ‚Prozedurname-2]...., Prozedurname-n 
DEPENDING ON Bezeichner 


\ 


Anweisung-]1 ; ELSE Anweisung-2 / 
NEXT SENTENCE \ ; ELSE NEXT SENTENCE \ 


IF Bedingung; 


TA 1620/TA 1630 


INITIATE Dateiname 


COB/Ref/1282/d 7A TRIUMPH-ADLER 


TA 1630/1620/1610 COBOL REFERENZKARTEN 


Allgemeines Format der Verben 


FORMAT 1 


INSPECT Bezeichner-]1 TALLYING 


ALL / ee 


Bezeichner-2 FOR ı ae Literal-] 
’ ee 


| 
? 
CHARACTERS 


jüezeichner-4 | 


(Literal-2 


BEFORE 
AFTER 


| INITIAL 


[ REPLACING 


\ 


Bezeichner-6 BEFORE B ich 7 
CHARACTERS BY { N { } { aeichner } 
——— Literal-4 [ AFTER en Literal-5 


ALL 


— Bezeichner-5 Bezeich -6 
\Eerone!, { } gr [Pezeichner-6) 
» urnDING Literal-3 BY Literal-4 


Bezeichner-7 
} INITIAL a ı 


FORMAT 2 


INSPECT Bezeichner-1 REPLACING 


\Bezeichner- 7| \ 


|Bezeichner-6/ [\BEFORE 
(Literal- -5 


ITIAL 
CHARACTERS BI a (AFTER | = 


ne 5) BY \Bezeichner-6| 


LEADING Y, Sn storul-3 1 2% (Literal-4 


FIRST 


| BEFORE 
| AFTER 


A) 
First \t 


\Bezeichner- 7 
[Literal- 5 


\ INITIAL 


TA 1630/1620/1610 COBOL REFERENZKARTEN 


Allgemeines Format der Verben 


FORMAT 1 


rer ; ; 
MOVE rien TO Bezeichner-2 [‚Bezeichner-3 ] un“ 


TA 1630 . 
FORMAT 2 


| CORRESPONDING } 
| CORR \ 


Bezeichner-] TO Bezeichner-2 


MOVE 


FORMAT 3 


MOVE nn TO RETURN VALUE 


FORMAT |] 


Bean me) : 
MULTIPLY a BY Bezeichner-2 [ ROUNDED ] 


[; ON SIZE ERROR unbedingte Anweisung] 


FORMAT 2 


Fe ie, ee: : ; 
== ROUNDED 
MULTIPLY ee BY ENG GIVING Bezeichner-3 [ OUND 


[; ON SIZE ERROR unbedingte Anweisung ] 


ı INPUT Dateiname-1[WITH NO REWIND] [,Dateiname-2 [WITH NO REWIND ]]... | 
OPEN \ OUTPUT Dateiname-3 [WITH NO REWIND ][,Dateiname-4 [WITH NO REWIND]]..- 

— Be Dateiname-5 [‚Dateiname-6] ... 
‚ EXTEND Dateiname-7 [‚Dateiname-8] 
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Allgemeines Format der Verben 


FORMAT 1 


THROUGH 


TARU } Prozedurname-2 | 


PERFORM Prozedurname-| f 


FORMAT 2 


Tas Prozedurnane-2 | 


THRU 


PERFORM Prozedurname-| \ 


Bezeichner-] 
Ganzzahl | TIMES 


FORMAT 3 


THROUGH ! 


THRU \ Prozedurnene-2 | 


PERFORM Prozedurname-] f 


UNTIL Bedingung-1 


FORMAT 4 


PERFORM Prozedurname-] regen! Prozedurname-2 | 
THRU 


denne 


a FROM | Indexname-2 \ 


VARYING F ee | 
el Literal-] 


Bezeichner-4 . 
Literel«? | UNTIL Bedingung-] 

en, 
| FROM Indexname-4 


ee bee 
Iiteral-3 


Indexname-3 


pre 


steral.d UNTIL Bedingung-2 


Bezeichner-8) 
Indexnam« -5 \ 


Bezarehnan-?) 
Indexname-6 
[Literal-5 \ 


Literal-6 


je 


\ Bedingung-3 
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Allgemeines. Förmat der Verben 


FORMAT 1 
READ Dateiname [NEXT ] RECORD [WITH NO LOCK ] [ INTO Bezeichner ] 
[L;AT END unbedingte Anweisung ] 


FORMAT 2 

READ Dateiname RECORD [WITH NO LOCK ] [ INTO Bezeichner ] 
[; KEY IS Datennane ] 
[;INVALID KEY unbedingte Anweisung ] 


FORMAT 3 (SCREEN 1/0) 
TA 1620/TA 1630 
READ Dateiname RECORD [WITH MASK ] [ INTO Bezeichner-1] 


[;END KEY IS Merkname-] [,Merkname-2 ] ... 
[POINTER IS Bezeichner-2 ] ] 
[,AT END unbedingte Anweisung | 


REWRITE Satzname L[FROM Bezeichner ] 
[;INVALID KEY unbedingte Anweisung ] 


FORMAT 1 
SET \Bezeichner-1 [,Bezeichner-2] | 


| Indexname- 1 [, Indexname-2 ir 


Indexname-3 


indosnanes | 
Ganzzahl-] 


FORMAT 2 
SET Indexnome-4 [,Indexname-5] ... | | a 


Ganzzahl-2 


IS EQUAL TO 

IS= 

IS GREATER THAN 
15 > 

‚ IS NOT LESS THAN 
IS NOT < 


START Dateiname KEY Datenname 


[ ;INVALID KEY unbedingte Anweisung ] 


RUN 
au nl 
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Allgemeines Format der Verben 


FORMAT 1 


SUBTRACT a [ Bezeichner-2 ] IR 


(Literal-] ‚ Literal-2 
FROM Bezeichner-m [ROUNDED][ ; ON SIZE ERROR unbedingte Anweisung ] 


FORMAT 2 (SCREEN 1/0) 


\ Bezeichner-1) k ne 
' 


| Bezeichner-m / 
| Literal-1 Literal-2 dr | 


A 
ae —— Literal-m \ 


GIVING Bezeichner-n [ROUNDED][,; ON SIZE ERROR unbedingte Anweisung] 
UNLOCK Dateiname RECORD 


TA 1630 
FORMAT 3 
CORRESPONDING ) 


SUBSTRACT 


CORR \ 


Bezeichner-1 FROM Bezeichner-2 [ROUNDED] 
[; ON SIZE ERROR unbedingte Anweisung] 


Dateiname-] 


FORMAT 1 
EXCEPTION | 
USE AFTER STANDARD |SRoR \ PROCEDURE ON 


FORMAT 2 
TA 1620/TA 1630 


USE FOR CHECK ON Dateiname-| 


FORMAT 1 


WRITE Satzname [FROM Bezeichner- 1] 
Bezeichner-2 ke ] 
Ganzzahl LINES 
\Bezeichner-3) 
19 LIKE (Ganzzahl-2 | 
PAGE 


BEFORE 
AFTER 


| ADVANCING 


|; AT ) END-OF-PAGE | unbedingte Anweisung | 


( EOR 


FORMAT 2 
WRITE Satzname [FROM Bezeichner] L[;INVALID KEY unbedingte Anweisung] 
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Allgemeines Format der Bedingungen 


Vergleichsbedingungen 


[IS [NOTJGREATER THAN 
IS [NOT]LESS THAN 


Terre IS [NOTJEQUAL TO Bezeichner-2 
Literal-] IS ENoT] . Literal-2 


Indexname-2 
ıs [mr] < 
ıs [nor] = 


Klassenbedingung 


Bezeichner IS [NOT] N 


Schalterzustandsbedingung 
Bedingungsname 


Zusammengesetzte Bedingungen 


Bedingung an Bedingung \ 


Verschiedene Formate 


Qualifizierung 


Datenname- 1 
Bedingungsname 


| Dattenname-2| u 
Paragraphenname f | Kopitelnane| 


Subskribierung 


Datenname (Subskript-1 ‚ [Subskript-2 [,Subskript-3]]) 


Indizierung 


| Indexname-1 [j*} Literal-2]] 


Datenname ne 


rg xt} an rn [t}Literal-6] 


"ILiteral-3 [Literal-5 


) 
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Allgemeines Format der Bedingungen 
Bezeichner 


FORMAT 1 


Datenname-| N \ Datenname-2 | -. . [(Subskript-1 [‚Subskript-2[,Subskript-3]] )) 


FORMAT 2 


| Ind -1ff+! Literal-2]/ 
Datenname-]| I Dotenname-2]| rs ld rene: Lt} 2 1 


(Literal-3 \ U /Literal-5 \ 


| \Indexname-2[}+! Literal-4]} \ \Indexname-3 [\+! Litera-c]]) 
' 4 J 


Allgemeines Format der COPY-Anweisung 


COPY Textname 


Reservierto Wörter 


ACCEPT 
ACCESS 
ADD 
ADVANCING 
AFTER 

ALL 
ALPHABETIC 
ALTERNATE 
AND 

ARE 

AREA 
AREAS 
ASSIGN 

AT 
ATTRIBUTE 
AUTHOR 
AUTO 
BEFORE 
BLANK 
BLINKING 
BLOCK 
BOTTOM 
BRIGHT 

BY 

CALL 
CANCEL ** 
CHARACTER 
» CHARACTERS 


CHECK 
CHECK-ITEM 


CHECK-RESPONSE 
CHECK-MESSAGE 
CLOSE 
COLLATING 
COMMA 

COMP 

COMP-] 

COMP-3 
COMPUTATIONAL 
COMPUTATIONAL-1 
COMPUTATIONAL-3 
COMPUTE* 

CONF IGURATION 
CONTAINS 
CONTROL 
CONVERT 

COPY 

CORR* 
CORRESPONDING* 
CRT-STATUS 
CURRENCY 


* Wörter, die nur in TA 1630 COBOL verwendet werden. 
die nur in TÄ 1620/TA 1610 verwendet werden, 


*%* Wörter 


DATA 

DATE 
DATE-WRITTEN 
DAY 
DEBUGGING 
DECIMAL-POINT 
DECLARATIVES 
DELETE 
DEPENDING 
DISPLAY 
DISPLAYING 
DIVIDE 
DIVISION 
DOWN 
DUPLICATES 
DYNAMIC 


ECHO 

ELSE 

END 
END-OF-PAGE 
ENVIRONMENT 
EOP 

EQUAL 

ERASE 

ERROR 

EXACT 

EXIT 

EXTEND 


FILE-CONTROL 
FILLER 

FIRST 
FOOTING 

FOR 

FROM 
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GENERATE 
GIVING 
60 
GREATER 


‘ HIGH-VALUE 


HIGH-VALUES 


I-0 
I-0-CONTROL 
IDENTIFICATION 
IF 

IN 

INDEX 
-INDEXED 
INITIAL 
INITIATE 
INPUT 
INPUT-OUTPUT 
INSPECT 
INSTALLATION 
INTO 

INVALID 
INVERSE 

15 


JUST 
JUSTIFIED 


KEY 


LABEL 
LEADING 
LEFT 

LESS 
LINAGE 
LINAGE-COUNTER 
LINE 

LINES 
LINKAGE 
LOCK 
LOW-VALUE 
LOW-VALUES 


MASK 
MEMORY 
MODE 


MODULES 
MOVE 
MULTIPLE 
MULTIPLY 


NATIVE 
NEXT 

NO 

NOT 
NUMERIC 


OBJECT-COMPUTER 
OCCURS 

OF 

OFF 

OMITTED 

ON 

OPEN 
OPTIONAL 

OR 
ORGANIZATION 
OUTPUT 


PAGE 
PERFORM 
PIC 
PICTURE 
PLUS 
POINTER 


POSITION 
PRINT 
PROCEDURE 
PROCEED 
PROGRAM 
PROGRAM-ID 
PROMPT 
PROTECTED 


QUOTE 
QUOTES 


RANDOM 
READ 
RECORD 
RECORDS 
REDEF INES 
REEL 


> 


VOR REN TRY U P 6: VERINEENER 
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Reservierte Wörter (Fortsetzung) 


RELATIVE 
REMOVAL 
RENAMES 
REPLACING 
RESERVE 
RETURN 
RETURN-KEY 
REWRITE 
RIGHT 
ROUNDED 
RUN 

SAME 
SCREEN 
SCROLL 
SECTION 
SECURITY 
SELECT 
SEND-KEY 
SENTENCE 
SEPARATE 
SEQUENCE 
SEQUENTIAL 
SET 

SIGN 

SIZE 
SOURCE-COMPUTER 


SPACE 
SPACES 
SPECIAL-NAMES » 
STol 

STo2 

STO3 

STO4 

STO5 

STO6 

SsTo7 

STO8 

STO9 

STIO 

sT1] 

ST12 

STI3 

ST14 

STI5 
STANDARD 
STANDARD-] 
START 
STATUS 
STOP 
SUBTRACT 
SYNC 
SYNCHRONIZED 


SWITCH-1 
SWITCH-2 
SWITCH-3 
SWITCH-4 
SWITCH-5 
SWITCH-6 
SWITCH-7 
SWITCH-8 


TALLYING 
TAPE 
THAN 
THEN 
THROUGH 


TRAILING 


UNIT 


UNDERLINED 


UNLOCK 
UNTIL 
UP 


UPON 

USAGE 

USE 
USER-LABEL 


VALUE 
VALUES 
VARYING 
VISIBLE 


WHEN 

WITH 

WORDS 
WORKING-STORAGE 
WRITE 


ZERO 
ZEROES 
ZEROS 
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Zusätzlich im ANSI reservierte Wörter 


ALSO 
ALTER 
ASCENDING 


CANCEL 

CD 

CF 

CH 
CLOCK-UNITS 
COBOL 

CODE 
CODE-SET 
COLUMN 
COMMUNICATION 
CONTROLS 
COUNT 


DATE-COMPILED 
DE 
DEBUG-CONTENTS 
DEBUG-ITEM 
DEBUG-LINE 
DEBUG-NAME 
DEBUG-SUB-1 
DEBUG-SUB-2 
DEBUG-SUB-3 
DELIMITED 
DELIMITER 
DESCENDING 
DESTINATION 
DETAIL 
DISABLE 


EGI 
EMI 
ENABLE 
ENTER 


ESI 
EVERY 


FINAL 
GROUP 
HEADING 
INDICATE 


LAST 

LENGTH 

LIMIT 

LIMITS 

LINE -COUNTER 


MERGE 
MESSAGE 


NEGATIVE 
NUMBER 


OVERFLOW 


PAGE-COUNTER 
PF 

PH 

POINTER 
POSITIVE 
PRINTING 
PROCEDURES 
PROCEED 


QUEUE 


RD 
RECEIVE 
REFERENCES 
RELEASE 
REMAINDER 
REPORT 
REPORTING 
REPORTS 
RERUN 
RESET 
REVERSED 
RF 

RH 


SD 

SEARCH 
SEGMENT 
SEGMENT-LIMIT 
SEND 

SORT 
SORT-MERGE 
SOURCE 
STRING 
SUB-QUEUE- 1 
SUB-QUEUE-2 
SUB-QUEUE-3 
SUM 
SUPPRESS 
SYMBOLIC 


TABLE 
TERMINAL 
TERMINATE 
TEXT 

TYPE 


UNSTRING 
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Vorrangregeln für PICTURE-Zeichen 


2.Zeichen 


je) 
c 
> 
je)] 
'D 
[ref 
[u 
m: 
u 
® 
"Oo 
c 
® 
> 
. 
® 
- 
oO 


Andere Symbole 


= Feste TER = m ie Andere Symbole 
= 


B2 
B2 cs cs| CS 
EIEBNSERBBENSEN 1E338 BE 


SIESSE DERBENBEEE 
SIEBSS DEREN DE 
BEBESEBENEBEBE 


EEBEEE 


x 
x| x 
x 


ER EEE 
DEBSSEHEEEEHEEERNSEEREN 
DHEEBEBENHEEEHERHEREEHE 
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Klassen und Kategorien der Datenfelder 


Stufe des ; 
Alphabetisch Alphabetisch 


Elementar Numerisch-druckaufbereitet 
Alphanumerisch Alphanumerisch-druckaufbereitet 
Alphanumerisch 
Alphabetisch 
Numerisch 
Nichtelementar Alphanumerisch Numerisch-druckaufbereitet 
(Gruppe) 


Alphanumerisch-druckaufbereitet 


Alphanumerisch 
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Erlaubte Operanden der MOVE-Anweisung 


Kategorie des Empfangsfeldes 

alphanumerisch |numerische Ganzzahl 
Kategorie des alpha- | druckaufbereitet| numerische Nicht-Ganzzahl 
Sendefeldes betisch| alphanumerisch |numerisch-druckaufbereitet 
alphabetisch 
alphanumerisch 


alphanum.-druck- 
aufbereitet 


numerische Ganz- 
zahl 


numerische Nicht- 
Ganzzahl 


numerisch-druck- 
aufbereitet 


* Ausnahme: Numerisch-druckaufbereitetes Empfangsfeld 


Kombination der Operanden in der SET-Anweisung 


Emp fangsfeld 
Ganzzahliges 
Sendefeld Datenfeld Indexname Indexdatenname 


ganzzahliges NEIN GÜLTIG NEIN 
Literal 


ganzzahliges NEIN GÜLTIG NEIN 
Datenfeld 


Indexname GÜLTIG GÜLTIG GÜLTIG * 
Indexname NEIN GÜLTIG * GÜLTIG * 


* Es wird keine Konvertierung durchgeführt 
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Dateiorganisation 


Bedeutung der Zustandsschlüssel für sequentielle Dateien 


Zustands- 
. schlüssel ] 


Zustands- 
schlüssel 2 


Bedeutung 
Erfolgreiche Beendigung 


AT END-Bedingung 


Permanenter Fehler 


Permanenter Fehler, Überschreitung 


der Dateigrenzen 


Vom Betriebssystem erkannter Fenler, 


ungültige Operation 


Vom Betriebssystem erkannter 
Datei nicht eröffnet 


Vom Betriebssystem erkannter 
Datei nicht geschlossen 


Vom Betriebssystem erkannter 
Datei nicht verfügbar 


Vom Betriebssystem erkannter 
ungültige OPEN-Funktion 


Vom Betriebssystem erkannter 
ungültiges Gerät 


Vom Betriebssystem erkannter 


Fehler, 


Fehler, 


Fehler, 


Fehler, 


Fehler, 


Fehler, 


ungültiger aktueller Satzzeiger 


Vom Betriebssystem erkannter 
ungültige Satzlänge 


Vom Betriebssystem erkannter 
gesperrter (locked) Satz 


Zulässige Anweisungen (sequentiell) 


Anweisung 


READ 
WRITE 
REWRITE 


- OPEN-Modus 


OUTPUT 


INPUT-OUTPUT EXTEND 


Fehler, 


Fehler, 
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OB AreIyL 


Bedeutun 


Zustands- 
schlüssel -] 
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der Zustandsschlüssel für Indexsequentielle Dateien 


Zustands- 
schlüssel-2 


Bedeutung 
Erfolgreiche Beendigung 


Erfolgreiche Beendigung; Duplikat erkannt 


AT END-Bedingung 


\ INVALID KEY-Bedingung; 
jnathenfolgefehler bei sequen- 
tiellem Zugriff auf Indexdateien 


\INVALID KEY-Bedingung; doppelt 
vorhandener KEY-Wert 


\ INVALID KEY-Bedingung; 
kein Satz gefunden 


\ INVALID KEY-Bedingung; 
/Vberschreiten der Dateigrenzen 


Permanenter Fehler 


\Permanenter Fehler, Überschrei- 
tung der Dateigrenzen 


\Vom Betriebssystem erkannter 
/Fehler, ungültige Operation 


\Vom Betriebssystem erkannter 
(Fehler, Datei nicht eröffnet 


\Vom Betriebssystem erkannter 
/Fehler, Datei nicht geschlossen 


\Vom Betriebssystem erkannter 
Fehler, Datei nicht verfügbar 


\Vom Betriebssystem erkannter 
(Fehler, ungültige OPEN-Funktion 


\Vom Betriebssystem erkannter 
(Fehler, ungültiges Gerät 


Vom Betriebssystem erkannter 
Fehler, undefinierter interner 
Satzzeiger 


\Vom Betriebssystem srkannter 
(Fehler, ungültige Satzlänge 


\Vom Betriebssystem erkannter 
(Fehler, ungültiger Index 


Vom Betriebssystem erkannter 
jEehler, gesperrter (locked) 
Satz 


TA 1630/1620/1610 COBOL REFERENZKARTEN 


Tabelle der zulässigen Anweisungen (indexsequentiell) 


Dateizugriffsmodus 


SEQUENTIAL 


DYNAMIC 


OPEN - Modus 


Anweisung OUTPUT INPUT-OUTPUT 


READ 
WRITE 
REWRITE 
START 
DELETE 
READ 
WRITE 
REWRITE 
START 
DELETE 
READ 
WRITE 
REWRITE 
START 
DELETE 
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Bedeutung der Zustandsschlüssel für relative Dateien 


Zustands- Zustands- 


schlüssel-] schlüssel-2 Bedeutung 


Erfolgreiche Beendigung 

AT END-Bedingung 

\ INVALID KEY-Bedingung; doppelt 
[vorhandener KEY-Wert 

\ INVALID KEY-Bedingung; 

[kein Satz gefunden 

\ INVALID KEY-Bedingung; 
[Überschreiten der Dateigrenzen 
Permanenter Fehley 


\Permanenter Fehler, Überschrei- 


|tung der Dateigrenzen 

\Vom Betriebssystem erkannter 
(Fehler, ungültige Operation 
\Vom Betriebssystem erkannter 
IFehler, Datei nicht eröffnet 
\Yom Betriebssystem erkannter 
[Fehler, Datei nicht geschlossen 


\Vom Betriebssystem erkannter 
(Fehler, Datei nicht verfügbar 


\ Vom Betriebssystem erkannter 
[Fehler, ungültige OPEN-Funktion 
| Vom Betriebssystem erkannter 


(Fehler, ungültiges Gerät 


Vom Betriebssystem erkannter 
jernler, undefinierter interner 


Satzzeiger 


| Vom Betriebssystem erkannter 
[ Fehler, ungültige Satzlänge 


Vom Betriebssystem erkannter 


aeg gesperrter (locked) 


Satz 
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Tabelle der zulässigen Anweisungen (relativ) 


OPEN - Modus 


Dateizugri Anweisung INPUT OUTPUT INPUT-OUTPUT 
x 


SEQUENTIAL READ 
WRITE 
REWRITE 
START 
DELETE 
READ 
WRITE 
REWRITE 
START 
DELETE 

DYNAMIC READ 
WRITE 
REWRITE 
START 
DELETE 
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Bedeutung der Zustandsschlüssel für SCREEN-Verarbeitun 


Zustonds- Zustands- 
schlüssel ] schlüssel 2 


Bedeutung 


Erfolgreiche Beendigung 
AT END-Bedingung 
Permanenter Fehler 


Permanenter Fehler, 
System-Restart 


Vom Betriebssystem erkannter Fehler, 
ungültige Operation 


Vom Betriebssystem erkannter Fehler, 
Datei nicht eröffnet 


Vom Betriebssystem erkannter Fehler, 
Datei nicht geschlossen 


Vom Betriebssystem erkannter Fehler, 
Datei nicht verfügbar 


Vom Betriebssystem erkannter Fehler, 
ungültige OPEN-Funktion 


Vom Betriebssystem erkannter Fehler, 
ungültiges Gerät 


Tabelle der erlaubten I/0O-Befehle (Bildschirm-Modus) 


READ 
WRITE 
DELETE 
GENERATE 
INITIATE 


READ 
WRITE 
DELETE 
GENERATE 
INITIATE 


OPEN MOD 


SCREEN OPERATION INPUT OUTPUT 
MODUS 


x 
x 
x 
x 
X 
X 
X 
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Bedienung des TA 1630 COBOL-Systems 
Ausführung des COBOL-Compilers im Vordergrund 
Execute COBOL Compiler in Foreground - XCCF 


EXECUTE TA1630 COBOL COMPILER IN FOREGROUND <VERSION i.i.i. > 

SOURCE ACCESS NAME: 
OBJECT ACCESS NAME: 
LISTING ACCESS NAME; 
OPTIONS: 

PRINT WIDTH: 132 

PAGE SIZE: 55 

PROGRAM SIZE (LINES): 1000 

COPYLIB ACCESS NAME: 
Viii gibt dabei die Versionsnummer des Compilers an. 
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Flußdiagramm zur Bestimmung, ob Linken für COBOL-Programm erforderlich 


COBOL 
OBJEKT 


Programm-Ausführung Pro- TASK-Ausführung 


q mm- od. 
© 


arc .. 
OBJIEKT-DATEI NASK-Ausfüh- ArocR DATEI 
rung 


LINK-LAUF 


Anweisung. 
enthulten 
Hintergrurd führung im 

z Vorder- oder 


Hintergrund 


OVERLAY 
PHASEN 


„* om- 
primierter 
Objektr 


Vordergrund 
führung im 
Vorder- oder Hin- 
XCPF tergrund 


Hintergrund Vordergrund 


xcP XCPF 


EXECUTE COBOL PROGRAM BACKGROUND 
(AUSFÜHRUNG EINES COBOL-PROGRAMMES IM HINTERGRUND) 


EXECUTE COBOL PROGRAM FOREGROUND 
(AUSFÜHRUNG EINES COBOL-PROGRAMMES IM VORDERGRUND) 


EXECUTE COBOL TASK BACKGROUND 
(AUSFÜHRUNG EINER COBOL-TASK IM HINTERGRUND) 


EXECUTE COBOL TASK FOREGROUND 
(AUSFÜHRUNG EINER COBOL-TASK IM VORDERGRUND) 


Vordergrund 
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Wehlfreie Angaben für den COBOL-Compiler 


Bedeutung 


Debug 

Objektliste 
Crossreferenzliste 
ROM/RAM-Compilierung 
ohne Formatierung 


Ausführung des COBOL-Compilers im Hintergrund 
EXECUTE TA1630 COBOL COMPILER = VERSION i.i.i.> FOREGROUND 
SOURCE ACCESS NAME: 
OBJECT ACCESS NAME: 
LISTING ACCESS NAME: 
OPTIONS: 
PRINT WIDTH: 
PAGE SIZE: 55 
PROGRAM SIZE (LINES): sid 
COPYLIB ACCESS NAME: 


Die Parameter sind dieselben wie beim XCCF-Kommando, mit der. 
Ausnahme, daß bei LISTING ACCESS NAME nicht ME angegeben werden darf. 


Ausführung eines COBOL-Programmes_ im Vordergrund 


(Execute COBOL Program in Foreground - XCPF ) 


EXECUTE TA1630. COBOL PROGRAM IN FOREGROUND < VERSION i.i.i.> 
OBJECT ACCESS NAME ; 


DEBUG MODE : NO 
MESSAGE ACCESS NAME ; \ 
SWITCHES : 00000000 


Ausführung eines COBOL-Programmes im Hintergrund 
Execute COBOL Program in Background - XCP 


EXECUTE TA1630 COBOL PROGRAM < VERSION i.i.i.> 
OBJECT ACCESS NAME ; 
DEBUG MODE : NO 
MESSAGE ACCESS NAME ; 
SWITCHES : 00000000 


TRIUMPH-ADLER 
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Erlaubte Link-Editor-Anweisungen bei COBOL-Objektprogrammen 


Anweisungen (die unter- 

strichenen Anweisungen 

werden standardmäßig Ausführung 
als geschrieben angenom- (einer Ob- 
men jektdatei) 


ADJUST 

ALLOCATE 

AUTO 

COMMON 

DATA 

DUMMY 

END 

ERROR/NO ERROR 
FORMAT ASCIL 
FORMAT COMPRESSED 
FORMAT IMAGE 
FORMAT IMAGE, REPLACE 
GLOBAL/ALL GLOBAL/NOT GLOBAL 
INCLUDE 

LIBRARY 

LOAD/NO LOAD 
MAP/NO MAP 

MEMORY 

NOAUTO 

NOSYMT 
PAGE/NOPAGE 
PARTIAL 

PHASE 0 

PHASE 12,...n 
PROCEDURE 
PROGRAM 

SEARCH 

SHARE 

SYMT 

TASK 


Teilbinden 


Anmerkungen 


Y - Anweisung ist erlaubt 
NO- Anweisung ist nicnt erlaubt 
(1) Bei Teilbinden (PARTIAL) wird standardmäßig NOAUTO 


als geschrieben angenommen; diese Anweisungen sollten dann 


nicht angegeben werden. 


Ausführung 
(einer Pro- 
grammdatei) 


Das Hauptprogramm muß bei der ersten INCLUDE-Anweisung stehen. 
Die Module des COBOL-Laufzeitsystems RCBTSK, RCBPRC und RCBMPD 


müssen durch diese Anweisungen in den Link-Lauf mit einbezogen 


werden. 
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COBOL-Laufzeitsystem 
Das COBOL-Laufzeitsystem besteht aus drei vorgelinkten Modulen: 


.S$SYSLIB.RCBTSK - Dies ist der Task-Teil des COBOL-Laufzeitinter- 
preters. Durch die INCLUDE-Anweisung muß er als erstes Modul in den 
Task-Teil der Ausgabe des Link-Editors mit einbezogen werden. RCBTSK 
ist nicht reentrant. ‘ 


.S$SYSLIB.RCBPRC - Dies ist der reentrante Teil des COBOL-Laufzeit- 
interpreters. Falls gewünscht, kann er durch die INCLUDE-Anweisung 
als eine Prozedur mit einbezogen werden. 


.S$SYSLIB.RCBMPD - Dieses Modul bestimmt, welches COBOL-Ob jektmodul 
das Hauptprogramm sein soll. Dazu muß dieses Modul des Laufzeitin- 
terpreters direkt vor dem entsprechenden COBOL-Objektmodul mit ein- 
bezogen werden. Da RCBMPD reentrant ist, kann es auch in Prozeduren 
verwendet werden. 


XCTF-Kommando 


Mit dem XCTF-Kommando wird eine COBOL-Task, die zuvor auf einer 
Programmdatei installiert wurde, im Vordergrund ausgeführt. 
Das Format des Kommandos stellt sich folgendermaßen dar: 


EXECUTE COBOL TASK FOREGROUND <VERSION x.x.x. > 


PROGRAM FILE LUNO; 
TASK ID OR NAME; 
DEBUG: NO 
MESSAGE ACCESS NAME; 
SWITCHES: 00000000 


XCT-Kommando 


Mit dem XCT-Kommando wird eine COBOL-Task, die zuvor auf einer 
Programmdatei installiert wurde, im Hintergrund ausgeführt. 
Das Format des Kommandos stellt sich folgendermaßen dar: 


EXECUTE COBOL TASK < VERSION x.x.x. > 


PROGRAM FILE: LUNO; 
TASK ID OR NAME: 
DEBUG: NO 
MESSAGE ACCESS NAME: 
SWITCHES: 00000000 


Ausführungscodes von COBOL-Programmen 


Wird ein COBOL-Programm über eine Kommando-Prozedur ausgeführt, 


so wird in dem Synonym $$CC ein Ausführungscode abgelegt. 
$$CC kann dabei folgende Werte annehmen: 


0000 - Normale Beendigung 
8000 - Fehlerhafte Beendigung 


Mit der MOVE - TO RETURN-Value - Anweisung können den 2 rechten 
Stellen des Ausführungscodes beliebige Werte zugewiesen werden. 
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Bedienung des TA 1620 COBOL-Systems 


Compilierung an der TA 1620 (TA 1620 COBOL-Compiler) 


Der COBOL-Compiler wird aktiviert, indem man das JDL-Kommando 
COBOL ausführt; dieses Kommando hat folgendes Format: 


/COBOL,OPTIONS=* (NAME) [DEBUG,NL,NO,XREF,OL,NF,TR,TA1610 ] 


Der Compiler liest das COBOL-Quelldeck von der Datei SI, 
gibt die Compilerliste auf die Datei LO und den binären Objekt- 
code auf die Datei BO aus. 


Die oben erwähnten Dateien müssen vor Ausführung des COBOL- 
Compilers (mit dem JDL-Kommando CREATE) angelegt und (mit 
dem JDL-Kommando ASSIGN) den logischen Namen SI, LO und BO 


zugewiesen worden sein. 
Die Compileroptions haben folgende Bedeutung: 


DEBUG = Die Debug-Zeilen (D in Spalte 7) werden mit 
übersetzt 

Unterdrückung der Compilerliste 
Unterdrückung der Objektcodeausgabe 
Ausgabe einer Crossreferenzliste 

Ausgabe einer Compilerliste mit Objektcode 
Bildschirm I/O wird nicht unterstützt 

Trace (nicht implementiert) 

Prüfung auf TA 1610 Sprachumfang 


TA1610 


Compilierung an der TA 1630 (Crosscompiler) 


Der COBOL CROSSCOMPILER läuft auf dem System TA 1630 und erzeugt 
Objektcode für das System TASO. Er besteht aus dem Cobolcompiler 
des Systems TASO und IO-Routinen des System TA 1630. Der Cross- 
compiler liest das Quelldeck von einer TA 1630 Datei und generiert 
TASO Objektcode in eine TA 1630 Datei. Der Code wird mit einem 
Dienstprogramm in eine TASO Programmdatei überspielt und kann nun 
auf.der TA 1610 oder TA 1620 ausgeführt werden, 


Programm-Compilierung 

Der COBOL-Crosscompiler wird aktiviert, indem man die Kommandos 
XCCRC (EXECUTE COBOL CROSS COMPILER) oder XCCRCF (EXECUTE COBOL 
CROSS COMPILER IN FOREGROUND) eingibt. 


EXECUTE TA 1600 COBOL CROSS COMPILER Viii FOREGROUND 


SOURCE ACCESS NAME: 

OBJECT ACCESS NAME: 

LISTING ACCESS NAME: 
OPTIONS: 

PRINT WIDTH: 

PAGE SIZE: 

PROGRAM SIZE(LINES): 
COPYLIB ACCESS NAME: 
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COBOL-OPTION IM JDL-KOMMANDO CROSSCOMPILER-OPTION 


DEBUG 

OL 

NL 

XREF 

NO,TR nicht unterstützt 
NF E 
TA1610 A 


Transfer des Objektcodes 


TRANSFER CROSSCOMPILER OBJEKT 
DISKETTE ACCESS NAME: 
TAXO FILE NAME: 
TASO FILE NAME: 

RELACE?: NO 


Compilierung und Transfer mit dem Kommando _XCCRCT(F) 


EXECUTE COBOL CROSS COMPILER Viii WITH TRANSFER 
SOURCE ACCESS NAME: 
DISKETTE ACCESS NAME: 
TASO ACCESS NAME: 
REPLACE?: 
LISTING ACCESS NAME: 
OPTIONS: , 

PRINT WIDTH: 132 

PAGE SIZE: 55 

PROGRAM SIZE(LINES): 6IdB 
COPYLIB ACCESS NAME: 


Ausführung von COBOL Programmen an der TA 1620 


Nachdem der binäre Objektcode in eine TA 1620 Programmdatei 
gebracht wurde, kann das Programm an der TA 1620 mit dem 
JDL-Kommando EXECUTE ausgeführt werden. 

Dieses Kommando hat das folgende Format: 


/EXECUTE, LOGICAL NAME = NAME, 
OPTIONS =*NAME (DEBUG) 
SWAPPING PARTITION = *INT, 
PARAMETERS = *(INT) 


VOR Rer 182 4 £ £ « VEORSOSOR 
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COBOL-Laufzeit-Debug 


Wird die Standardeintragung "NO" gewählt, dann läuft das Programm 
normal ab. 

Wird jedoch "YES" eingetragen, wird das Programm unter der Kon- 
trolle des Debug-Programmes gestartet. 


Debug-Kommandos 


Kommando 
Stop Adresse 
Single 

Dump 

Beende Programmausführung (Kill) 


Beende Debug-Modus (No Debug) 


ZERO WW. 


In der Programmliste wird für jedes Datenfeld sowohl der Daten- 
typ als auch die entsprechende Abkürzung ausgegeben. 


Die Abkürzungen sind: 


NBS - Binär mit Vorzeichen (COMP-1) 

NPS - Numerisch gepackt mit Vorzeichen (COMP-3) 
NCU - Rechenfeld ohne Vorzeichen (COMP) 

NCS - Rechenfeld mit Vorzeichen (COMP) 


NSU - Numerisch DISPLAY ohne Vorzeichen (DISP) 
NSS - Numerisch DISPLAY mit Vorzeichen (DISP) 


NSE - Numerisch druckaufbereitet 


ABS - Alphabetisch (DISP) 
ANS - Alphanumerisch (DISP) 


ANSE - Alphanumerisch druckaufbereitet 


GRP - Gruppenfeld 
HEX - Standard-Ausgabe 
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Bei fehlerhafter Eingabe werden vom Debug-System folgende Meldungen 
ausgegeben: 


TA 1610 

TA 1620 TA 1630 
Falsche Stopadresse 5801 BREAKPNT? 
Zuviele Stopadressen 5802 OVERFLOW! 
Stopadresse schon definiert 5803 DUPLICATE! 
Ungültiges Kommando 5804 COMMAND? 
Falsche Screen-Zeilen-Nummer 5805 LINE! 
Falsche Programmadresse 5806 LOCATION! 
Syntaxfehler 5807 SYNTAX! 
Daten abgeschnitten | 5808 TRUNCATION 
Falscher Datentyp 5809 TYPE? 
Falscher Wert 5810 VALUE? 
Wartezustand 5811 WAIT 
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Fehlermeldungen des COBOL-Compilers 


Meldungen 


ACCESS 
CLASH 


ATTRIBUTE 
CLASH 


BLANK WHEN 
ZERO 


CLASS 


COPY 


COMPOSITE 
SIZE 


DATA 
OVERFLOW 


DATA TYPE 


DECLARATIVE 
REFERENCE 


DEVICE CLASH 


DEVICE 
TYPE 


DOUBLE 
DECLARATION 


DOUBLE DEFI- 
NITION 


DUPLICATE 


EDIT PICTURE 
OVERFLOW 


FILE BOTTOM 


FILE 
DESCRIPTION 


Warnung |Erläuterungen 


Nichtsequentieller Zugriff wurde für eine sequen- 
tielle Datei angegeben. 


Es widersprechen sich Angaben bezüglich Feldattri- 
buten in der Datenbeschreibung der Screen Section. 


BLANK WHEN ZERO wurde für ein nichtnumerisches 
oder Gruppenfeld angegeben, 


Der in der Klassenbedienung referenzierte Daten- 
typ ist hier nicht erlaubt. 


Die COPY-Anweisung kann wegen eines permanenten 
Fehlers bezüglich des gekennzeichneten Textnamens 
nicht ausgeführt werden, 


Die in einer Anweisung verwendeten Operanden erge- 
ben aufgrund Überlappung eine Länge größer als 18 
Dezimalziffern, 


Der Datenbereich (Working-storage und Literale) 
ist länger als $5535 Bytes. 


Der angegebene Datentyp ist bei dieser Referenz 
nicht erlaubt. 


Nur eine Warnung. Innerhalb des DECLARATIVE-Be- 
reiches wird ein Prozedurname referenziert, der 
außerhalb des DECLARATIVES-Bereiches liegt. 


Für ein Gerät ohne Direktzugriffsmöglichkeit wur- 
de RANDOM definiert. 


Die Referenzierung oder Beschreibung der Datei 
widerspricht dem Gerätetyp. 


Für eine Datei oder einen Bezeichner wurden mehr- 
fache Erklärungen angegeben. 


Mehrere Definitionen für einen Bezeichner, 


Nur eine Warnung. Mehrere USE-Prozeduren wurden 
für dieselbe Funktion angegeben. 


Editiertes Picture wird relativ zum Programman- 
fang "zu spät" referenziert (s. Kapitel 14.7). 


Die Dateierklärung der angegebenen Datei enthält 
eine LINES AT BOTTOM Angabe mit einem Datennamen, 
der falsch gekennzeichnet oder nicht als ein nume- 
risch ganzzahliges Datenfeld ohne Vorzeichen defi- 
niert ist. 


Zu dem angegebenen Dateinamen existiert keine, 
oder eine falsche Dateierklärung (FD). 
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Meldungen nung| Erläuterungen 


FILE FOOTING Die Dateierklärung der angegebenen Datei ent- 
hält eine WITH FOOTING-Angabe mit einem Daten- 
namen, der falsch gekennzeichnet oder nicht als 
ein numerisch ganzzahliges Datenfeld ohne Vor- 
zeichen definiert ist. 


LINAGE Die Dateierklärung der angegebenen Datei ent- 
hält eine LINAGE IS-Angabe mit einem Datenng- 
men, der falsch gekennzeichnet oder nicht als 
numerisch ganzzahliges Datenfeld ohne Vorzei- 
chen definiert ist. 


NAME Der angegebene Dateiname hat eine ungültige 
externe Dateinamenerklärung. 


NAME REQUIRED In der I/O-Anweisung wird nicht, wie erforder- 
lich, ein Dateiname referenziert. 


RECORD KEY Der angegebene Dateiname besitzt einen RECORD KEY, 
welcher falsch qualifiziert ist oder welcher nicht 
als alphanumerisches Datenfeld innerhalb der Satz- 
beschreibung der betreffenden Datei definiert ist. 


RECORD SIZE Der angegebene Dateiname besitzt eine Satzlänge, 
die mit der aktuellen Datenbeschreibung im Wider- 
spruch steht. 


RELATIVE KEY Der angegebene Dateiname besitzt einen RELATIVE 
KEY-Datennamen, der entweder falsch qualifiziert 
oder in der zugehörigen Satzbeschreibung defi- 
niert oder nicht als vorzeichenlose Ganzzahl 
beschrieben ist. 


SCREEN RECORD Nur eine Warnung. Der angegebene Dateiname be- 
sitzt einen SCREEN IS-Datennamen, der entweder 
nicht definiert oder einer anderen Bildschirn- 
datei zugeordnet ist. 


STATUS Der angegebene Dateiname besitzt ein Statusfeld, 
das entweder falsch qualifiziert oder nicht in der 
WORKING-STORAGE SECTION als zwei Zeichen langes, 
alphanumerisches Datenfeld definiert ist. 


Die Dateierklärung der angegebenen Datei enthält 
eine LINES AT TOP-Angabe mit einem Datennamen,,. 
der falsch gekennzeichnet oder nicht als ein nu- 
merisch ganzzahliges Datenfeld ohne Vorzeichen 
definiert ist. 


FILE TYPE Die Zugriffsart oder die Dateiorganisation wider- 
spricht der gekennzeichneten Anweisung. 


FILLER LEVEL Es wurde ein nichtelementares FILLER Datenfeld 
definiert. 
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Fehlermeldungen des COBOL-Compilers 


Meldungen 
GROUP CLASH 


GROUP VALUE CLASH 


IDENTIFIER 


ILLEGAL PERFORM 


INVALID ID 
INVALID PARAGRAPH 
JUSTIFY 


KEY REQUIRED 


LINAGE REQUIRED 


LINE-POSITION 
INVALID 


Warnung] Erläuterungen 


Die USAGE-, VALUE- oder FIELD ATTRIBUTE-Klausel 
der Gruppe widerspricht derselben Klausel für 
die Gruppe. 


Ein Datenfeld, das einer Gruppe angehört, welche 
mit VALUE IS beschrieben ist, ist mit der 
SYNCHRONIZED, JUSTIFIED oder USAGE (nicht USAGE 
IS DISPLAY) definiert. 


Ein Bezeichner ist nicht richtig angegeben oder 
der Bezeichner ist falsch oder doppelt definiert. 


Eine PERFORM-Anweisung referenziert einen unde- 
finierten oder falsch qualifizierten Poragraphen, 
oder die Anweisung verletzt die Segmentierungs- 
regeln. 


Es wird ein ungültiger Bezeichner referenziert. 
Es wird ein ungültiger Paragraphenname referenziert. 


Die JUSTIFY-Klausel widerspricht anderen 
Attributen, 


Für eine Relative-Datei im Direktzugriff (RANDOM) 
wurde kein RELATIVE KEY definiert, oder für eine 
Index-Datei wurde kein RECORD KEY definiert. 


Die angegebene oder fenlende LABEL RECORD-Klausel 
widerspricht den Geräte-Standards,. 


Die angegebene Stufennummer ist entweder in sich 
oder durch die Stellung in der Gruppe ungültig. 
Falls Stufennummer O1 oder 77 nicht im Bereich A 
beginnt, ist die Meldung nur eine Warnung. 


Die FD-Erklärung der angesprochenen Datei ent- 
hält nicht die LINAGE-Klausel. Eine Angabe bei 
der WRITE-Anweisung setzt jedoch das Vorhanden- 
sein der Kiausel voraus. 


Die LINE- und/oder POSITION-Angaben sind falsch. 
Entweder sind die Angaben außerhalb des logischen 
Bildschirmbereichs oder sie wurden für einen lo- 
gischen Bildschirmbereich gemacht, der einer 
Scroll-Datei zugewiesen ist, oder die Angaben 
zeigen auf eine 'kleinere' Position als bei der 
Übersetzung des Bildschirmsatzes schon erreicht 
worden ist. 
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Fehlermeldungen des COBOL-Compilers 


Meldung 


LINKAGE 


LITERALE VALUE 


MUST BE INTEGER 


MUST BE PROCEDURE 


MUST BE SECTION 


NESTING 


NOT IN REDEFINE 


OCCURS 


OCCURS-VALUE CLASH 


PICTURE 


PICTURE-BWZ CLASH 


PICTURE-USAGE CLASH 


PROCEDURE INDEPENDENCE 


PROGRAM OVERFLOW 


Erläuterungen 


Ein Bezeichner in der USING-Klausel der PROCEDURE- 
Überschrift ist nicht in der LINKAGE SECTION enthal- 
ten oder eine Anweisung referenziert ein LINKAGE- 
Datenfeld, das keinem Bezeichner in der USING-Klausel 
der PROCEDURE-Überschrift untergeordnet ist. 


Der Wert des Literals ist im angegebenen Kontext un- 
gültig. 


Die Operanden einer MOVE-Anweisung definieren einen 
unzulässigen MOVE. 


Es muß eine Ganzzahl angegeben sein. 


Hier muß entweder als Referenz oder als Definition 
ein Prozedurname stehen, oder die Referenz muß sich 
auf einen Prozedurnamen beziehen, der nicht dem 
Declaratives-Bereich angehört. 


Hier muß ein Kapitelname stehen. 


Bedingungen, die keine IF-Bedingungen sind, sind 
falsch geschachtelt. 


Die VALUE IS-Klausel steht in einem REDEFINES-Daten- 
feld. 


Die OCCURS-Klausel steht auf einem unzulässigen Level 
oder die Dimension der Tabelle ist größer drei. 


Die VALUE IS-Klausel und die OCCURS-Klausel sind für 
dasselbe Datenfeld definiert. 


Die Syntax der PICTURE-Zeichenkette ist falsch. 
Bei der Datenbeschreibung ist BLANK WHEN ZERO an- 
gegeben und die PICTURE-Zeichenkette enthält das 
Stern-Zeichen. . 


Die USAGE-Klausel widerspricht der angegebenen 
PICTURE-Zeichenkette, 


Eine PERFORM-Anweisung bezieht sich auf Prozeduren 
in unabhängigen Segmenten und nicht auf das aktuelle 
Segment. 


Der Bereich der Anweisungen (PSECT) ist länger als 
32 767 Bytes. 
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Fehlermeldungen des COBOL-Compilers 


Meldungen 


RECORD KEY 


RECORD REQUIRED 


REDEFINES 


REDEFINES ERROR 
(SIZE) 


REFERENCE INVALID 


RELATION 


RELATIVE KEY 


RESERVED WORD 
CONFLICT 


SCAN RESUME 


SECTION CLASH 


SEGMENT 


SEPARATOR 


Erläuterungen 


Der RECORD KEY ist für eine Datei erklärt, die nicht 
mit ORGANIZATION IS SEGUENTIAL beschrieben ist, oder 
eine START-Anweisung mit der KEY-Angabe referenziert 
ein Datenfeld, welches nicht nach dem linken Byte 
des definierten Schlüssels ausgerichtet ist. 


In der WRITE- oder REWRITE-Anweisung muß ein 
Datensatz einer Datei referenziert werden. 


REDEFINES wurde innerhalb eines OCCURS-Bereiches an- 
gegeben oder es wird nicht das letzte Datenfeld re- 
definiert. 


Der referenzierte Datenname redefiniert ein Datenfeld 
das nicht dieselbe Anzahl von Zeichenpositionen 
besitzt und nicht auf Stufe Ol steht. 


Die angegebene Referenzierung ist hier nicht zulässig 


Die Operanden des Vergleichstests sind nicht ver- 
gleichbar. 


RELATIVE KEY wurde für eine Datei definiert, die kei- 
ne relative Dateiorganisation besitzt, oder eine 
START-Anweisung mit KEY-Angabe referenziert ein Da- 
tenfeld, das nicht mit dem definierten Schlüssel 
übereinstimmt. 


An einer Stelle, wo ein Anwenderwort erwartet wird, 
steht ein in COBOL reserviertes Wort oder Symbol. 
In der Fehlerstatistik gilt diese Meldung nur als 
Warnung, wenn ein in ANSI COBOL reserviertes Wort 
nicht in TA1600-COBOL als reserviert gilt. 


‚Nur eine Warnung. Der Prüfvorgang wurde durch den 


vorausgehenden Fehler beendet und an der unterstri- 
chenen Position wieder fortgesetzt. 


Eine VALUE IS-Klausel steht in der FILE oder LINKAGE 
SECTION. 


Nur eine Warnung. Die Segmentnummer in einem unab- 
hängigen Segment ist nicht dieselbe wie im aktuellen 
Segment oder die Nummer eines neuen unabhängigen 
Segmentes. 


Nur eine Warnung. Redundante Interpunktion. 
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Fehlermeldungen des COBOL-Compilers 


Meldungen 


SIZE ERROR 


SUBSCRIPT 


SYNC 


SYNTAX 


UNDEFINED 


UNDEFINED 
PROCEDURE 


USE REQUIRED 


USING COUNT 


VALUE SIZE 


VALUE 


VARIABLE RECORD 


Erläuterungen 


Die SIGN-Klausel widerspricht der USAGE- und PICTURE- 
Klausel. 


Nur eine Warnung. Die Größe eines referenzierten 
Datenfeldes ist in diesem Kontext falsch. 


Die erklärte Größe eines Satzes widerspricht der 
angegebenen Referenz, 


Eine falsche Anzahl von Subskripten oder Indizes 
wurde verwendet. 


Die SYNCHRONIZED-Klausel wurde für ein Gruppenfeld 


verwendet. 


Ein falsches Zeichen oder ein falsches reserviertes 
Wort wurde verwendet. 


Die Datei, die im FD-Paragraph referenziert wird, 
ist nicht definiert. 


Eine GO TO-Anweisung referenziert einen nicht defi- 
nierten oder falsch qualifizierten Paragraphen. 


Nach einer Kapitelüberschrift im DECLARATIVES- 
Bereich steht keine USE-Anweisung. Die Fehler- 
meldung kann auch daraufhinweisen, daß im Pro- 
gramm die END DECLARATIVES-Anweisung vergessen 
wurde, 


Nur eine Warnung. Die Anzahl der Datenfelder in der 
USING-Liste einer CALL-Anweisung ist von der Anzahl 
der Datenfelder verschieden, die bei der ersten 
Bezugnahme auf denselben Programmnamen verwendet 
wurde, 


Der angegebene Wert in der VALUE IS-Klausel führt zum 
Abschneiden von Ziffern ungleich Null. 


Die VALUE IS-Klausel widerspricht anderen angegebenen 
Attributen. 


Nur eine Warnung. Eine READ... INTO-Anweisung 
referenziert eine Datei mit variabler Satzlänge. 
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TA _ 1620 COBOL-Systemfehlermeldungen 


Meldung 


COMPILER LOGIC 
FAILURE 


COMPILER MEMORY 
OVERFLOW 


COMPILER POINTER 
OVERFLOW, nnnn 


Erläuterungen 


Im Compiler ist ein interner Fehler erkannt 
worden. Das Problem ist dem Systemprogrammierer 
zu übergeben. 


Zur Compilierung des Quellprogramms benötigt 
der Compiler mehr Speicher. 


Die Compiler-Tabelle mit der Nummer nnnn ist 
übergelaufen. 
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TA_1620 COBOL-Systemfehlermeldungen 


Fehler- 
code 


TA 1620 | Meldungen (TA1630) 


COBOL COMPILER TCA 
ERROR 


COBOL COMPILER TLF 
ERROR 


COBOL COMPILER BUG 


COBOL COMPILER 
ABNORMAL 
TERMINATION 


COBOL POINTER 
OVERFLOW 


COBOL PROGRAM 
OVERFLOW 


COBOL COMPILER 
OVERLAY LOAD ERROR 


COPY FILE CLOSE 
ERROR 


COPY FILE OPEN 
ERROR 


Erläuterungen 


Das System hat eine 
Fehlerbedingung in der 
TCA (Task Communi- 
cation Area) erkannt, 


Das System hat eine 
Fehlerbedingung beim 
Zugriff auf den TLF 
(Terminal Local File) 
erkannt. 


Die Compiler konnte 
die Compilierung wegen 
einer internen Fehler- 
bedingung nicht beend- 
en. 


Der Compiler hat die 
Generierung des 
Objektmoduls aus dem 
Quellprogramm abge- 
brochen. 


Eine der internen 
Zeigertabellen des 
Compilers ist über- 
gelaufen, 


Zur Speicherung des 
Programms ist nicht 
genügend Speicher 
vorhanden, 


Beim Laden eines Com- 
piler-Overlays ergab 
sich ein Fehler 


Bei dem Versuch, die 


Copydatei zu schließen, 


ergab sich ein Fehler. 


Bei dem Versuch, die 
Copydatei zu eröffnen, 
ergab sich ein Fehler, 


Fehlerbeseitigungen 


Das Problem ist dem 
Systemprogrammierer 
zu übergeben, 


Das Problem ist dem 
Systemprogrammierer 
zu übergeben. 


Das Problem ist dem 
Systemprogrammierer 
zu übergeben. 


Aus der Druckliste 
ist die Ursache zu 
bestimmen. 


Die X-Angabe ist zu 
unterdrücken (Cross- 
referenzliste); wenn 
der Fehler wieder 
auftritt: Programm 
kürzen! 


Andere Programme sind 
zu beenden oder die 
X-Angabe ist zu 
unterdrücken (Cross- 
referenzliste). 


Das Problem ist dem 
Systemprogrammierer 
zu übergeben. 


Das Problem ist dem 
Systemprogrammierer 
zu übergeben, 


Das Problem ist dem 
Systemprogrammierer 
zu übergeben. 
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TA_1670 COBOL-Systemfehlermeldungen 


TA 1620|] Meldungen (TA1630) 


7607 


7601 


7602, 
7604 


COBOL COMPILER 
FATAL ERROR .. 
VECTOR TAKEN 


„END 


COBOL SPILL (FILE) 
RECORD OVERFLOW 


FATAL SYNTAX ERROR 
OR NULL PROGRAM 


INVALID COMPILE 
OPTION 


TAXO 1/0 ERROR 


LISTING FILE ERROR 


OBJECT FILE ERROR 


MEMORY REQUESTED 
EXCEEDS 
SYSTEM CAPACITY 


ROLL SPILL FILE 
ERROR 


Erläuterungen 


Das Betriebssystem hat 


einen schweren Fehler 
festgestellt und die 
Compilation beendet 


Die Plattenkapaozität 
reicht für die auszu- 
lagernden Tabellen 
nicht aus. 


Ein Syntaxfehler im 
Quellcode führte zu 
einem schweren Fehler 
im Compiler. 


Eine oder mehrere der 


ausgewählten Compiler- 


steverparometer für 
diesen Compilierungs- 
lauf sind nicht gül- 
tige Parameter. 


|Bei einem der EA-Ge- 


räte trat ein Fehler 
auf, 


Ein Fehler trat währ- 
end der Übertragung 
der Daten zur Druck- 
datei auf. 


Ein Fehler trat währ- 
end der Übertragung 
der Daten zur Objekt- 
datei auf. 


Die Speicherkapazität 
des Systems ist nicht 
ausreichend, um die 
Speicheranforderungen 
zu befriedigen. 


Ein Fehler trat bei 
der Verarbeitung von 
Roll-Spill-Dateien 
auf, 
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Fehlerbeseitigungen 


Im BS-Programmier- 
handbuch können mög- 
liche Task-Fehler 
nachgeschlagen werde 


Die Platte ist ggf. 
zu reorganisieren, 


Prüfe die Quellan- 
weisungen und korri- 
giere die Syntax. 
Wiederhole die Com- 
pilierung. 


Korrigiere den 
falschen Steverpara- 
meter. (Der Compiler 
arbeitet auch ohne 
Korrektur richtig. E 
ignoriert den ungül- 
tigen Parameter). 


Man benutze System- 
fehlercodes, um den 
Grund für den Fehler 
zu finden. 


Man benutze System- 
fehlercodes, um den 
Grund für den Fehler 
zu finden. 


Man benutze System- 
fehlercodes, um den 
Grund für den Fehler 
zu finden. 


Andere Programme sind 
zu beenden oder die 
X-Angabe ist zu unter 
drücken. 


Das Problem ist dem 
Systemprogrammierer 
zu übergeben. 
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TA_1620 COBOL-Systemfehlermeldungen 


Meldungen (TA1630) Erläuterungen 


SOURCE FILE ERROR Während der Übertragung 
der Daten von der Quellda- 
tei trat ein Fehler auf. 


TOO MANY NESTED COPIES Eine COPY-Anweisung wurde 
gelesen, die mehr als fünf 


geschachtelte Level enthält. 


Fehlerbeseitigungen 


Man benutze die System- 
fehlercodes, um den 
Grund für den Fehler zu 
finden. 


Das Quellprogramm ist sc 
zu ändern, daß die 
Schachtelungstiefe der 
COPY-Anweisung weniger 
als fünf ist. 
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Fehlermeldungen des TA 1600 COBOL Laufzeitsystems 


Fehlercode 
TA1620 


Fehlermeldung 
(TA1630) 


Erläuterungen 


Der vorher ange- 


zeigte E/A Fehler 


Fehlerbeseitigung 


Überprüfen der 
Programmlogik bzw. 


führte zum Abbruch 
des Programmes an 
dieser Stelle. 
Wurde vorher kein 
Fehler ausgegeben, 
dann lag die Ur- 
sache für den 
Fehler darin, daß 

e die ACCEPT/DISPLAY 
Datei in der Termi- 
nal-Partition nicht 
eröffnet werden 
konnte. 

edie ACCEPT/DISPLAY- 
Datei in der Non- 
Terminal-Partition er- 
öffnet werden sollte 

eLaufzeitsystem und 
Compileroutput nicht 


der Partitionsgröße 


> 


VOR Re RU Fr f  OERERNERES 


COMPILATION 


verträglich 


Compilierungsfehler 
erkannt: Es wurde 
der Versuch gemacht 
eine fehlerhaft- 
compilierte An- 


weisung auszuführen. 


Fehler im aufge- 
rufenen Programm: 
Der vorher ange- 
zeigte Fehler trat 
in dem von diesen 
Programm aufge- 
rufenen Programm 
an der betreffenden 
Stelle auf. 


Korrigieren der 
fehlerhaften 
COBOL-Anweisung und 
Recompilieren 


Überprüfen des 
aufgerufenen (CALL) 
Programms 
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Fehlermeldungen des TA 1600 COBOL Laufzeitsystems 


Fehlercode | Fehlermeldung Erläuterungen Fehlerbeseitigung 


TA1620 (TA1630) 


5012 INVALID ADDRESS |Fehlerhafte Überprüfen des 
Adresse: Es wurde Programmes, 
versucht eine un- insbesondere hin- 
gültige Adresse zu sichtlich Programm- 
referenzieren. übergabe bei CALL 
Dies kann auftreten, 
wenn 
. beim Aufruf eines 
Unterprogramms 
weniger Argumente 
übergeben werden, 
als declariert bzw. 
referenziert werden 
oder wenn 

. FILE STATUS oder 
RELATIVE KEY als 
Linkage-Elemente 
während einer E/A 
Operation ver- 
wendet werden, 


INVALID DOPE Fehlerhafte Daten- Überprüfen der 
darstellung: Es Compilierung, insbe- 
wurde der Versuch sondere bezgl. aufge- 
gemacht eine tretener Fehler; Über- 
Instruktion auszu- prüfen der Objektdatei 
führen, die ungültige und gegebenfalls 
Daten referenziert Recompilierung. 


INVALID EDIT Fehlerhaftes Edit- Überprüfen der 
ierungspicture: Es Compilierung, insbe- 
wurde versucht eine sondere bzgl. aufge- 
Instruktion auszu- tretener Fehler; Über- 
führen, die eine prüfen der Objektdatei 
ungültige Editier- und gegebenenfalls 
ungsmaske referen- Recompilierung. 
ziert. 
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Fehlermeldungen des TA 1600 COBOL Laufzeitsystems 


Fehlercode 


TA1620 


Fenlermeldung 
(TA1630) 

5006 INVALID 
INSTRUCTION 


external-name 
IO ERROR=ZZ.II 
AT:xxyyyy in 
pname 


LINAGE 


LOAD OVERLAY 
(SVC) ERROR 
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Erläuterungen 


Undefinierte Ob- 
jektanweisung. Es 
wurde versucht eine 
ungültige Instruk- 
tion auszuführen. 


oder 


Es wurde versucht, 
mit einem Program- 
miersysten: ein Pro- 
gramm auszufüllen. 


Fehler bei der Aus- 
führung einer E/A- 
Anweisung: Bei der 
Ausführung einer 
E/A-Anweisung, für 
die keine AT END, 
INVALID KEY oder USE 
Klausel existierte 
oder anwendbar war, 
trat ein Fehler auf. 
Der zugehörige Datei- 
name ist "external- 
name", xxyyyy ist die 
Laufzeitadresse im 
Programm "pname".. ZZ 
ist der COBOL-File- 
Status und II der TAXO 
bzw. TASO Fehlercode. 


Fehlerhafter LINAGE- 
Wert: Der bei WRITE 


„„„ADVANCING angegebene 


Zeilenwert liegt 
außerhalb des LINAGE- 


Bereiches 


Fehler beim Laden 
eines Overlays 


Fehlerbeseitigung 


Überprüfen der 
Compilierung, insbe- 
sondere bzgl. aufge- 
tretener Fehler; Über 
prüfen der Objektdatei 
und gegebenfalls 
Recompilierung. 


oder 


Laden eines Standard- 
betriebssystems 


Überprüfen des 
Programmes hinsichtlich 
Logik und Korrektheit 
der E/A; Korrigieren 
des Programmes und 
Recompilieren. 


Überprüfen des 
Programms und ggf. 
Recompilieren. 


Überprüfen der CALL- 
Schnittstellen bzw. Link- 
Kontroll-Datei (TA1630) 


TA 1630/1620/1610 COBOL REFERENZKARTEN 


Fehlermeldungen des TA 1600 COBOL Laufzeitsystems 


Fehlercode 
TASO(TA1620 


Fehlermeldung 
(TA1630) 


SUBSCRIPT 
RANGE 


UNDEF INED 
LABEL REF 


Erläuterungen 


Subscript-Bereichs- 
Fehler: Bei der 
Subskribierung wurde 
ein Wert angegeben, 
der nicht im Bereich 
der OCCURS-Angabe 
liegt, oder die Länge 
eines Operanden in 
einer Anweisung ist 


größer als 2047. 


Fehlerhafter Bezug 
auf einen Para- 
graphennamen: Bei der 
Ausführung einer An- 
weisung wurde ein 
Paragraph referen- 
ziert, der nicht 
definiert ist. Dies 
kann auch dadurch 
hervorgerufen werden, 
daß der Paragraph in 
dem Sinne undefiniert 
ist, weil er im 
falschen Segment 
liegt - Regeln bzgl. 
Segmentierung ver- 
letzt. 


Fehler bei DTS-Be- 
nutzung: Das Lauf- 
zeitdebugsystem er- 
zeugt einen Fehler 
während der Be- 


“nutzung des Bild- 


schirms für die 
Kommandoausgabe. 


Fehlerbeseitigung 


Überprüfen der 
Prograommlogik, insbe- 
sondere bezgl. OCCURS 
und Subskribierung; 
ggf. Recompilieren, 


Überprüfen des 
Programmes bzgl. 
Referenzen zwischen 
abhängigen und unab- 
hängigen Segmenten; 
Recompilierung 


DTS-E/A im Programm 
und DTS-E/A des 
Laufzeitdebuggers 
konkurrieren mitein- 
ander; Abstimmen der 


E/A 


TA 1630/1620/1610 COBOL REFERENZKARTEN 


Fehlermeldungen des TA 1600 COBOL Laufzeitsystems 


Fehlercode | Fehlermeldung | Erläuterungen Fehlerbeseitigung 


TA1620 (TA1630) 


Fehlerhaftes Durch- Überprüfen der 
laufen der USE- Programmlogik bzgl. 
FORCHECK-Prozedur: der Checkfeld-Ver- 
Es wurde versucht arbeitung 

die USE-FOR-CHECK- 

Prozedur erneut zu 

durchlaufen, obwohl 

diese noch nicht 

vollständig abge- 

arbeitet war. 


USE-FOR-CHECK fehlt: Korrigieren aes 
Während der Verar- Quellprogramms, 
beitung eines READ- Recompilieren 
Befehls auf eine 

Bildschirmdatei 

wurde ein Checkfeld 

erkannt, eine zuge- 

hörige USE-FOR-CHECK 

Prozedur fehlt jedocn. 


Es wurde versucht, ein Überprüfen der Pro- 
aktives Unterprogramm grammlogik 

zu "canceln" oder ein ak 

tives Unterprogramm mit 

CALL aufzurufen 


COB/Ref/1282/d 7A TRIUMPH-ADLER 


TA 1630/1620/1610 COBOL REFERENZKARTEN 


TA_1630 COBOL-Laufzeit Systemfehlermeldungen 


Meldungen 


BAD HEX VALUE ON OBJECT 
FILE 


COBOL RUNTIME TCA ERROR 


COBOL RUNTIME TLF ERROR 


CHECKSUM ERROR 


END COBOL RUN 


ERROR READING OBJECT 
FILE 


INVALID TAG 


LOAD ADDRESS OUT OF 
RANGE 


Erläuterungen 


Die Objektdatei enthält ein 
Zeichen, welches keinen 
Hexadezimalwert darstellt. 


Das System stellte beim 
Arbeiten mit der TCA (task 
communication area) einen 
Fehler fest. 


Das System stellte einen 
Fehler auf der TLF fest. 


Eine Prüfsumme in der 
Objektdatei war falsch. 


Das Programm wurde ab- 
geschlossen, 


Während des Lesevorganges 
für die Objektdatei wurde 
ein Fehler entdeckt. 


Ein Kontrollzeichen in der 
Objektdatei ist ungültig. 


Die Objektdatei enthält 
eine Ladeadresse, die außer 
halb der zulässigen Grenzen 
liegt. 


Fehlerbeseitigungen 


Man überprüfe, ob die 
Objektdatei die richtige 
Datei ist und sie richtig 
positioniert ist. Falls 
notwendig, ist die Über- 
setzung zu wiederholen. 


Das Problem ist dem 
Systemprogrammierer zu 
übergeben. 


Der für den Parameter 
MESSAGE ACCESS NAME 
angegebene Wert ist un- 
zulässig oder bezeichnet 
eine Datei, auf die-z.B. 
von einer anderen Station 
aus -schon zugegriffen wird 


Man überprüfe, ob die 
Objektdatei die richtige 
Datei ist und sie richtig 
positioniert ist. Falls 
notwendig, ist die Über- 
setzung zu wiederholen. 


Man bediene sich der 
Systemdienste, 


Man überprüfe, ob die 
Objektdatei die richtige 
Datei ist und sie richtig 
positioniert ist. Falls 
notwendig, ist die Über- 
setzung zu wiederholen. 


Man überprüfe, ob die 
Objektdatei die richtige 
Datei ist und sie richtig 
positioniert ist. Falls 
notwendig, ist die Über- 
setzung zu wiederholen. 


VOR, Rot, 12B2/4 7A TRIUMPH-ADLER 


TA 1630/1620/1610 COBOL REFERENZKARTEN 


TA_1630 COBOL-Laufzeit Systemfehlermeldungen 


Meldungen 


UNABLE TO GET MEMORY 


UNABLE TO OPEN OBJECT 


UNEXPECTED END OF FILE 
ON OBJECT FILE 


Erläuterungen 


Das System hat nicht genü- 
gend Speicher, um den Anfor- 
derungen des Programmes zu 
genügen. 


Das System stellt einen 
Fehler fest, als es die 
Objektdatei eröffnen wollte. 


Die Objektdatei enthält ein 
EOF-("end-of-file')-Kenn- 
zeichen vor den Daten, welche 
zur Ausführung des Programmes 
notwendig sind. 


Fehlerbeseitigungen 


Man beende andere Pro- 
gramme und wiederhole 
die Programmausführung. 


Das Problem ist dem 
Systemprogrammierer zu 
übergeben. 


Man überprüfe, ob die 
Objektdatei die richtig 
Datei ist und sie rich- 
tig positioniert ist. 
Falls notwendig, ist di 
Übersetzung zu wieder- 
holen. 


— 


